home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / mig.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.9 KB  |  45 lines
  1. if (!defined &_MIG) {
  2.     eval 'sub _MIG {1;}';
  3.     require 'fs.ph';
  4.     eval 'sub MIG_NUM_LOAD_VALUES {3;}';
  5.     eval 'sub MIG_LOAD_INTERVAL {5;}';
  6.     eval 'sub MIG_GLOBAL_UPDATE_INTERVAL {(12 *  &MIG_LOAD_INTERVAL);}';
  7.     eval 'sub MIG_TIMEOUT {(3 *  &MIG_GLOBAL_UPDATE_INTERVAL);}';
  8.     eval 'sub MIG_DAEMON_RETRY_COUNT {5;}';
  9.     eval 'sub MIG_HOST_ACTIVE {0;}';
  10.     eval 'sub MIG_HOST_IDLE {1;}';
  11.     eval 'sub MIG_HOST_PART_USED {2;}';
  12.     eval 'sub MIG_HOST_FULL {3;}';
  13.     eval 'sub MIG_HOST_REFUSES {4;}';
  14.     eval 'sub MIG_HOST_DOWN {5;}';
  15.     eval 'sub MIG_NUM_STATES {( &MIG_HOST_DOWN + 1);}';
  16.     eval 'sub MIG_LOW_PRIORITY {0;}';
  17.     eval 'sub MIG_NORMAL_PRIORITY {1;}';
  18.     eval 'sub MIG_HIGH_PRIORITY {2;}';
  19.     eval 'sub MIG_NUM_PRIORITIES {( &MIG_HIGH_PRIORITY + 1);}';
  20.     eval 'sub IOC_MIG_GETINFO {( &IOC_GENERIC_LIMIT+1);}';
  21.     eval 'sub IOC_MIG_GETIDLE {( &IOC_GENERIC_LIMIT+2);}';
  22.     eval 'sub IOC_MIG_DONE {( &IOC_GENERIC_LIMIT+3);}';
  23.     eval 'sub IOC_MIG_KILL {( &IOC_GENERIC_LIMIT+4);}';
  24.     eval 'sub IOC_MIG_DAEMON {( &IOC_GENERIC_LIMIT+5);}';
  25.     eval 'sub IOC_MIG_CHANGE {( &IOC_GENERIC_LIMIT+6);}';
  26.     eval 'sub IOC_MIG_GET_PARAMS {( &IOC_GENERIC_LIMIT+7);}';
  27.     eval 'sub IOC_MIG_SET_PARAMS {( &IOC_GENERIC_LIMIT+8);}';
  28.     eval 'sub IOC_MIG_GET_STATS {( &IOC_GENERIC_LIMIT+9);}';
  29.     eval 'sub IOC_MIG_GET_UPDATE {( &IOC_GENERIC_LIMIT+10);}';
  30.     eval 'sub IOC_MIG_EVICT {( &IOC_GENERIC_LIMIT+11);}';
  31.     eval 'sub IOC_MIG_RESET_STATS {( &IOC_GENERIC_LIMIT+12);}';
  32.     eval 'sub IOC_MIG_LASTCMD { &IOC_MIG_RESET_STATS;}';
  33.     eval 'sub MIG_PROC_RELOCATE {0x0001;}';
  34.     eval 'sub MIG_PROC_AGENT {0x0002;}';
  35.     eval 'sub MIG_ALL_HOSTS {0;}';
  36.     eval 'sub MIG_MAX_ARCH_TYPES {8;}';
  37.     eval 'sub MIG_MAX_ARCH_LEN {12;}';
  38.     eval 'sub MIG_MAX_HOSTS_DIST {20;}';
  39.     eval 'sub MIG_INTERVAL_PERIOD {300;}';
  40.     eval 'sub MIG_STATS_VERSION {5;}';
  41.     eval 'sub MIG_COUNTER_HIGH {1;}';
  42.     eval 'sub MIG_COUNTER_LOW {0;}';
  43. }
  44. 1;
  45.